Dim objXL
Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Set objXL = CreateObject("Excel.Application")

WScript.sleep(60)

' --------------------------------------------------------------------------------------------------------------

'    objXL.Workbooks.Open ("C:\Program Files\AVI_Data_Analysis\Macro.xls")
'    objXL.Application.Run "ImportData"	'run the Macro   
'    objXL.Workbooks.Open (sCurPath + "\Macro.xls")
'    objXL.Application.Run "ImportData"	'run the Macro   

'    objXL.Workbooks.Open (sCurPath + "\Macro2.xls")					'open workbook w/ Macro
'    objXL.Application.Run "ImportData2"							'run the Macro   

'    objXL.Workbooks.Open (sCurPath + "\Macro2.xls")					'open workbook w/ Macro
'    objXL.Application.Run "ImportandPLot"							'run the Macro   

    objXL.Workbooks.Open (sCurPath + "\PlotMacro.xlsm")					'open workbook w/ Macro
    objXL.Application.Run "PMacro01"							'run the Macro   

'-----------------------------------------------------------------------------------------------------------------

    objXL.Application.DisplayAlerts = False
    objXL.Workbooks.Close  						'		does not close all excel wkbks
'    .Application.DisplayAlerts = False
'    .Application.Quit			'closes all excel wkbks

Set objXL = Nothing
